home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / mac / 3-Presentations / Apple Demos / CPUs / Macintosh Solutions Demo / Macintosh Solutions 1.0 / card_2980.txt < prev    next >
Text File  |  1990-08-24  |  4KB  |  179 lines
  1. -- card: 2980 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2732
  5. -- name: Main Menu
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global gsoftwarelist
  9.   put empty into gsoftwarelist
  10.   pass openCard
  11. end openCard
  12.  
  13.  
  14. -- part 4 (button)
  15. -- low flags: 00
  16. -- high flags: 2000
  17. -- rect: left=261 top=146 right=206 bottom=512
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Home
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   goSubMenu (char 1 of short name of me)
  29. end mouseUp
  30.  
  31.  
  32.  
  33. -- part 5 (button)
  34. -- low flags: 00
  35. -- high flags: 2000
  36. -- rect: left=261 top=82 right=142 bottom=512
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: Business
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   --answerSorry
  48.   goSubMenu (char 1 of short name of me)
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 6 (button)
  54. -- low flags: 00
  55. -- high flags: 2000
  56. -- rect: left=261 top=273 right=333 bottom=512
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: College/Univ
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   goSubMenu (char 1 of short name of me)
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 7 (button)
  73. -- low flags: 00
  74. -- high flags: 2000
  75. -- rect: left=261 top=209 right=270 bottom=512
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: School
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   goSubMenu (char 1 of short name of me)
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 12 (field)
  92. -- low flags: 80
  93. -- high flags: 0000
  94. -- rect: left=11 top=273 right=297 bottom=75
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 0
  98. -- font id: 3
  99. -- text size: 12
  100. -- style flags: 2048
  101. -- line height: 16
  102. -- part name: TimeOut
  103.  
  104.  
  105. -- part 14 (button)
  106. -- low flags: 00
  107. -- high flags: 0000
  108. -- rect: left=29 top=288 right=342 bottom=68
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: 
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   global RPSTACKNAME
  120.   if RPSTACKNAME is not empty then doMenu "home"
  121.   else
  122.     answer "Go to the Home Stack or Quit HyperCard?" with "Cancel" or "Home" or "Quit"
  123.     if it is "Cancel" then exit mouseUp
  124.     if it is "Home" then go home else send "doMenu Quit HyperCard" to HyperCard
  125.   end if
  126. end mouseUp
  127.  
  128.  
  129.  
  130. -- part 15 (button)
  131. -- low flags: 00
  132. -- high flags: 0000
  133. -- rect: left=27 top=29 right=168 bottom=253
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: 
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.   wait 1 second
  145.   doattract
  146. end mouseUp
  147.  
  148.  
  149.  
  150. -- part 19 (button)
  151. -- low flags: 00
  152. -- high flags: 0000
  153. -- rect: left=126 top=319 right=336 bottom=253
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: 
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   showCopyRight
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part contents for background part 1
  170. ----- text -----
  171. Main Menu
  172.  
  173. -- part contents for background part 3
  174. ----- text -----
  175. 1
  176.  
  177. -- part contents for card part 12
  178. ----- text -----
  179. 120